home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / amiex / CD_Server103.lha / CD-SERVER / Install_CD < prev    next >
Text File  |  1995-08-18  |  16KB  |  428 lines
  1. ;Install-Script for CD-Server by SieGeL (tRSi/X-iNNOVATiON)
  2.  
  3. ;Variablen-Definitionen
  4.  
  5. (SET @app-name "CD-Server V1.03")
  6. (SET @default-dest "DOORS:")
  7. (SET commanddir "BBS:COMMANDS/BBSCMD/")
  8. (SET helpdir "S:")
  9. (SET alternatedir "T:")
  10.  
  11. (COMPLETE 0)
  12.  
  13. (IF (= @language "deutsch")
  14.     (
  15.     (set #default_lang 2)
  16.     (set #start1     (cat     "\nDieses Skript installiert CD-Server und alle\n"
  17.                          "benötigten Files auf Ihrem Rechner.\n\n"
  18.                                             "CD-Server ist nur auf FAME oder AMIEX Systemen\n"
  19.                                             "lauffähig, haben Sie diese Systeme nicht, dann können\n"
  20.                                             "Sie dieses Programm nicht verwenden!"))
  21.   (set #devhelp (cat    "Hier müssen Sie die DEVICES,bzw. Assigns angeben,\n"
  22.                                             "die im CD-Server verwendet werden sollen.\n"
  23.                                             "Bitte achten Sie darauf, nur gültige Gerätenamen\n"
  24.                                             "anzugeben (abschliessender ':'), oder es kann zu\n"
  25.                                             "Problemen kommen !!\n\n" @askstring-help))
  26.     (SET #DEVNAME (cat    "\nBitte geben Sie das Gerät/Assign Nummer %ld ein:\n"
  27.                                             "(Leereingabe um mit der Installation fortzufahren)"))
  28.     (SET #ENTERTT (cat    "\n\nEs werden nun der Reihe nach die Devices bzw.\n"
  29.                                             "Assigns, die in Verbindung mit CD-Server ge-\n"
  30.                                             "nutzt werden sollen, vom Installer abgefragt."))
  31.     (SET #DESC        (cat    "\nBitte geben Sie eine Beschreibung an für Gerät\n\n%s\n\n"
  32.                                             "Sie müssen hier keine Beschreibung angeben,\n"
  33.                                             "möchten Sie dies jedoch tun, dann darf diese\n"
  34.                                             "Beschreibung nicht länger als 60 Zeichen sein!\n"))
  35.   (SET #DESCHLP (cat    "Diese Beschreibung wird bei der Geräte-Auswahl\n"
  36.                                             "des CD-Servers angezeigt. Geben Sie hier nichts\n"
  37.                                             "an, dann wird als Beschreibung 'N/A!' verwendet.\n\n"
  38.                       @ASKSTRING-help))
  39.     (SET #DESTHLP    (CAT    "Hiermit geben Sie ein Zielverzeichnis an,\n"
  40.                                             "in welches CD-Server hineinkopiert werden\n"
  41.                                             "soll. Bitte beachten Sie, das dieses Skript\n"
  42.                                             "KEIN Directory anlegt, das müssen Sie, sofern\n"
  43.                                             "Sie das wünschen, selbst erledigen.\n\n"
  44.                                             @ASKDIR-HELP))
  45.     (SET #GUIDEIN    (CAT    "\nCD-Server verwendet einen externen AmigaGuide\n"
  46.                       "Konvertierer, der Guidedateien in ANSI-Files\n"
  47.                                             "konvertiert. Soll dieses Programm in Ihr C:\n"
  48.                                             "Verzeichnis kopiert werden ?\n\n"))
  49.     (SET #CONVERT-HELP
  50.                                 (CAT    "Um es Usern zu ermöglichen, AmigaGuide® Dateien ohne\n"
  51.                       "Sonderzeichen zu betrachten, verwendet CD-Server\n"
  52.                                             "einen externen Guide->ANSI Konverter. Wenn Sie sich\n"
  53.                                             "entscheiden, dieses Programm zu installieren (sehr\n"
  54.                                             "empfehlenswert!), dann wird dieses unter dem Namen\n"
  55.                                             "Guide2DocProf in Ihr C: Verzeichnis kopiert.\n\n"))
  56.     (SET #TEMP        (CAT    "\nCD-Server benutzt als Vorgabe-Verzeichnis\n"
  57.                                             "das T: Verzeichnis, um dorthin konvertierte\n"
  58.                       "Guides zu schreiben.\n\n"
  59.                                             "Ist das Okay für Sie ?"))
  60.     (SET #PACKDIR-HELP
  61.                                 (CAT    "Das Temporäre Verzeichnis wird benötigt, um Guide-\n"
  62.                       "dateien umzuwandeln, es sollte also auf dem Daten-\n"
  63.                                             "träger mind. 1MB freier Speicher vorhanden sein, da\n"
  64.                                             "AmigaGuide® Dateien leicht diese Größe erreichen.\n"))
  65.     (SET #NEWTEMP    (CAT    "Wählen Sie bitte ein neues temporäres Verzeichnis:\n"
  66.                       "(Es sollte mind. 1MB darauf verfügbar sein !)\n"))
  67.     (SET #ONHELP    (CAT    "\nSoll ich die Online-Hilfe vom CD-Server installieren,\n"
  68.                                             "damit Sie eine Übersicht aller Kommandos haben ?\n"
  69.                                             "(Sehr zu empfehlen!)\n"))
  70.     (SET #ONHLP   (CAT    "Wenn Sie die Online-Hilfe installieren, dann wird\n"
  71.                                             "diese unter dem Namen 'CD-SERVER.HLP' in Ihr S:\n"
  72.                                             "Verzeichnis kopiert."))
  73.     (SET #DOCPART (CAT    "\nBitte wählen Sie die Teile der Dokumentation, die\n"
  74.                       "Sie installiert haben möchten:\n"))
  75.     (SET #ASSIGN-HELP
  76.                                 (CAT    "Das Assign 'SERVER:' wird benötigt, damit die AMIEX die\n"
  77.                                             "Dateien vom CD-Server auch findet. Sie müssen dieses\n"
  78.                       "Assign in jedes Konferenz-Icon eintragen, indem auch\n"
  79.                                             "der CD-Server laufen soll!"))
  80.     (SET #DOCDEST                "Bitte wählen Sie ein Verzeichnis für die Dokumentation:")
  81.     (SET #ASKSYSTEM         "Bitte wählen Sie Ihr installiertes BBS-System:")
  82.     (SET #ASKDEST                "Bitte wählen Sie das Zielverzeichnis für CD-Server:")
  83.     (SET #AXDEST                "Bitte Zielverzeichnis für CD-Server's /X-Icon angeben:")
  84.     (SET #LEVEL                    "Bitte geben Sie den Access-Level an, der benötigt\nwird, um CD-Server zu starten:")
  85.     (SET #ASSIGN                "Füge jetzt die folgende Zeile in Ihre user-startup ein:\n\n\"ASSIGN >NIL: SERVER: T: DEFER\"\n\n")
  86.     (SET #YES1                    "Jau das will ich")
  87.     (SET #YES2                    "Das ist prima")
  88.     (SET #YES3                    "Jupsa, immer rauf")
  89.     (SET #NO1                        "Nö, das will keiner")
  90.     (SET #NO2                        "Niemals, ändern!")
  91.     (SET #NO3                        "Nee, wer braucht die")
  92.     (SET #GODS                    "Ein weiteres Programm von der \"ECHTEN\" (tRSi/X-iNNOVATiON)")
  93.     (SET #SYSED                    "LADEN SIE BITTE JETZT DAS FILE \"CD\" IN DEN SYSTEM-\nEDITOR UND EDITIEREN SIE DEN PFAD ZU CD-SERVER!\n\n")
  94.     (SET #FAMEDEST            "Bitte Zielverzeichnis für CD-Server's Doordefinition auswählen:")
  95.  
  96. ; --- Fehler-Texte ---
  97.  
  98.     (set @error-msg          "ACHTUNG: CD-Server-Installation wurde abgebrochen !")
  99.     (set #bad-kick     (cat "Sie benötigen mindestens Kickstart 2.0 für CD-Server !"))
  100.     (set #wrongdevs    (cat "Sie müssen mindestens ein Device angeben, damit\n"
  101.                                               "CD-Server richtig arbeiten kann ! Versuchen Sie\n"
  102.                                               "es noch einmal..."))
  103.   ))
  104.  
  105. ;------------------------------ ENGLISH TEXTS --------------------------------
  106.  
  107. (IF (= @language "english")
  108.     (
  109.     (set #default_lang 4)
  110.     (set #start1     (cat     "\nThis script installs CD-Server and all\n"
  111.                          "needed files to your System.\n\n"
  112.                                             "CD-Server runs only under FAME or AMIEX Systems.\n"
  113.                                             "If you don't have these Systems installed, you\n"
  114.                                             "can't use it !"))
  115.     (SET #devhelp    (cat    "Here you have to enter DEVICES or Assigns which\n"
  116.                                             "should be used whith CD-Server.\n"
  117.                       "Please make sure to only enter here valid Device\n"
  118.                                             "names (containing a ':'!), or problems may occure!\n\n" @askstring-help))
  119.     (SET #DEVNAME (cat    "\nPlease enter Device/Assign Number %ld:\n"
  120.                                             "(Empty entry to continue the Installation)"))
  121.   (SET #ENTERTT (cat    "\n\n\nYou were now asked for all DEVICES,btw.\n"
  122.                                             "Assigns which should be used with CD-Server."))
  123.     (SET #DESC        (cat    "\nPlease enter a description for Device\n\n%s\n\n"
  124.                                             "you don't have to specify it, but if you\n"
  125.                                             "do it, don't enter here more than 60 chars!\n"))
  126.     (SET #DESCHLP (cat    "This description will be shown in the Device-\n"
  127.                       "select menu from CD-Server. If you don't want\n"
  128.                       "to enter here a description, a default of 'N/A'\n"
  129.                                             "will be used as description.\n\n"
  130.                                             @askstring-help))
  131.     (SET #DESTHLP    (cat    "Here you should define the Location where\n"
  132.                                             "CD-Server should be installed. Note that\n"
  133.                                             "the Installer will not create a directory,\n"
  134.                                             "if you want an own dir, you have to create\n"
  135.                                             "it for yourself !\n\n"
  136.                       @ASKDIR-HELP))
  137.     (SET #GUIDEIN    (CAT    "\nCD-Server uses an external AmigaGuide->ANSI\n"
  138.                                             "Converter for viewing Guides, do you want to\n"
  139.                                             "install it to your C: Directory ?\n\n"))
  140.     (SET #CONVERT-HELP
  141.                                  (cat    "To allow users to view Amiga-Guide Databases as ANSI-\n"
  142.                             "Files, CD-Server uses an external Converter-Program.\n"
  143.                             "If you decides to install it (which is highly recom-\n"
  144.                                             "mended!), the Converter will be copied to your C: dir\n"
  145.                                             "under the Name 'GUIDE2DOCPROF'.\n\n"
  146.                             @ASKBOOL-HELP))
  147.     (SET #TEMP        (cat    "\nCD-Server uses the T: dir as default\n"
  148.                                             "for converting the Guides.\n\n"
  149.                                             "Is this okay for you ?"))
  150.     (SET #PACKDIR-HELP
  151.                                  (CAT  "The Temp-Dir is only used to covert the Guides to\n"
  152.                             "this Directory, so you should have at least 1 MB free\n"
  153.                             "Space on this Device, 'coz AmigaGuides could easily\n"
  154.                             "grow in their size to 1MB, and therefor you should\n"
  155.                             "have enough Bytes free.\n\n"))
  156.     (SET #NEWTEMP (cat    "Please select new tempdir for CD-Server:\n"
  157.                                             "(There should be at least 1MB free Space)\n"))
  158.     (SET #ONHELP    (cat  "\nDo you want to copy the Online-Help to your S: Dir\n"
  159.                                             "to have an overview of all commands accessable ?\n"
  160.                                             "(Highly recommended)"))
  161.     (SET #ONHLP        (cat    "If you decide to install the Online-Help, it will be\n"
  162.                                             "copied to your S: dir under the Name 'CD-SERVER.HLP'.\n"))
  163.     (SET #DOCPART (cat    "Please choose which parts of the Documentation\n\n"
  164.                                             "should be installed:"))
  165.     (SET #ASSIGN-HELP
  166.                                  (CAT  "The assign 'SERVER:' is needed to let Amiex comunicate\n"
  167.                             "with CD-Server. You have to add the SERVER: assign as DL-\n"
  168.                             "Path to every Conference you want to let CD-Server working!"))
  169.     (SET #DOCDEST                "Please select Destination for the Documentation:")
  170.     (set #ASKSYSTEM         "Please choose the BBS-System you are running:")
  171.     (SET #ASKDEST                "Please select Destination for CD-Server V1.03:")
  172.     (SET #AXDEST                "Please select destination for CD-Server's /X icon:")
  173.     (SET #LEVEL                    "Enter the Access-Level required to start\n\nCD-Server in Amiex :")
  174.     (SET #ASSIGN                "Now adding the following line to your user-startup :\n\n\"ASSIGN >NIL: SERVER: T: DEFER\"\n\n")
  175.     (SET #YES1              "Yes, I like this")
  176.     (SET #YES2                    "Yep, that's right")
  177.     (SET #YES3                    "Yeah, that's cewl")
  178.     (SET #NO1                        "No, I hate this")
  179.     (SET #NO2                        "No, I'll change it")
  180.     (SET #NO3                        "Nope, not needed")
  181.   (SET #GODS                    "Another Tool comming from the \"REAL\"\n(tRSi/X-iNNOVATiON)")
  182.     (SET #SYSED         "NOW PLEASE LOAD THE FILE \"CD\" INTO YOUR SYSTEMEDITOR AND EDIT THE PATH TO CD-SERVER !\n\n")
  183.     (SET #FAMEDEST            "Please select destination directory for CD-Server's Door definition:")
  184.  
  185. ; --- Error-Texts ---
  186.  
  187.     (SET @error-msg "WARNING: CD-Server-Installation is stopped!")
  188.      (set #bad-kick     (cat     "You must be using Kickstart 2.0 or higher to install CD-Server !"))
  189.     (set #wrongdevs    (cat    "You must enter at least one device to let\n"
  190.                                                 "CD-Server working ! Try again dude...\n"))
  191.     ))
  192.  
  193. ;=============================================================================
  194.  
  195. (WELCOME)
  196. (MESSAGE #START1)
  197.  
  198. (if (< (/ (getversion) 65536) 37) ( (abort #bad-kick)))
  199.  
  200. ;-------------- ERSTMAL ABCHECKEN, WELCHE BBS LÄUFT ------------------------
  201.  
  202. (COMPLETE 10)
  203.  
  204. (SET BBSSYSTEM
  205.  (ASKCHOICE     (PROMPT #ASKSYSTEM)
  206.             (HELP @ASKCHOICE-HELP)
  207.                 (CHOICES "FAME"
  208.                      "AMIEX")
  209.                 (DEFAULT 1)))
  210.  
  211. ;---------------- DANN ERSTMAL DAS DOOR INSTALLEN --------------------------
  212.  
  213. (COMPLETE 20)
  214.  
  215.   (SET maindest
  216.    (ASKDIR (PROMPT #ASKDEST)
  217.            (HELP #DESTHLP)
  218.        (DEFAULT @default-dest)))
  219.  
  220.   (SET @default-dest maindest)
  221.   (COPYFILES (HELP @COPY-HELP)
  222.          (SOURCE "BBS/DOORS/CD-SERVER/CD-SERVER")
  223.          (DEST @default-dest)
  224.          (INFOS))
  225.  
  226. ;--------------------- ICON TOOLTYPES EINTRAGEN ----------------------------
  227.  
  228. (COMPLETE 30)
  229.  
  230. (MESSAGE #ENTERTT)
  231.  
  232. (SET PRGDIR (tackon @default-dest "CD-Server"))
  233.  
  234. (SET devnumber 1)
  235. (SET Abbruch 0)
  236. (while( <> Abbruch 1)
  237.   (SET devname
  238.         (ASKSTRING (PROMPT (#DEVNAME devnumber))
  239.                         (HELP #devhelp))
  240.     )
  241.     (IF (= devname "") (SET Abbruch 1)
  242.         (
  243.         (SET device ("DEVICE.%ld" devnumber))
  244.         (TOOLTYPE (DEST PRGDIR)
  245.             (SETTOOLTYPE device devname)
  246.             (NOPOSITION))
  247.     (SET description
  248.             (ASKSTRING (PROMPT (#DESC devname))
  249.                  (HELP #DESCHLP)))
  250.         (IF (<> description "")
  251.             (
  252.             (SET desc   ("NAME.%ld" devnumber))
  253.             (TOOLTYPE (DEST PRGDIR)
  254.                 (SETTOOLTYPE desc description)
  255.                 (NOPOSITION))
  256.             ))
  257.         (SET devnumber (+ devnumber 1))
  258.         )
  259.     )
  260. )
  261. (set devnumber (- devnumber 1))
  262. (if (= devnumber 0) (abort #wrongdevs))
  263. (SET maxdevs ("%ld" devnumber))
  264. (TOOLTYPE (DEST PRGDIR)
  265.     (SETTOOLTYPE "MAX_DRIVES" maxdevs)
  266.     (NOPOSITION))
  267.  
  268. ;----------------------- GUIDE2DOC INSTALLIEREN -----------------------------
  269.  
  270. (COMPLETE 40)
  271.  
  272.  (SET JANEIN
  273.   (ASKBOOL (PROMPT #GUIDEIN)
  274.            (HELP #CONVERT-HELP)
  275.            (DEFAULT 1)
  276.            (CHOICES (#YES1)
  277.                     (#NO1))))
  278.  
  279. (IF (= JANEIN 1)
  280.   (
  281.    (COPYFILES (SOURCE "C/Guide2DocProf")
  282.               (DEST   "C:"))
  283.     )
  284. )
  285.  
  286. ;---------------------- TEMP-DIRECTORY EINTRAGEN ----------------------------
  287.  
  288. (COMPLETE 45)
  289.  
  290. (SET JANEIN
  291.  (ASKBOOL (PROMPT #TEMP)
  292.           (HELP #PACKDIR-HELP)
  293.           (DEFAULT 1)
  294.           (CHOICES (#YES2)
  295.                    (#NO2))))
  296. (COMPLETE 48)
  297.  
  298. (if (= JANEIN 0)
  299.     (SET alternatedir
  300.       (ASKDIR    (PROMPT #NEWTEMP)
  301.                (HELP #PACKDIR-HELP)
  302.                (DEFAULT "RAM:"))))
  303.  
  304. (set laenge (strlen alternatedir))
  305. (set laenge (- laenge 1))
  306.  
  307. (set test ("%s\0" (SUBSTR alternatedir laenge 1)))
  308.  
  309. (IF (AND (<> test ":") (<> test "/")) (SET alternatedir (CAT alternatedir "/")))
  310.  
  311. (TOOLTYPE (DEST PRGDIR)
  312.     (SETTOOLTYPE "PACKDIR" alternatedir)
  313.     (NOPOSITION))
  314.  
  315. ;----------------- NU DIE ONLINE-HILFE HINTERHER ---------------------------
  316.  
  317. (COMPLETE 50)
  318.  
  319. (SET JANEIN
  320.  (ASKBOOL (PROMPT #ONHELP)
  321.           (HELP #ONHLP)
  322.           (DEFAULT 1)
  323.           (CHOICES (#YES3)
  324.                    (#NO3))))
  325.  
  326. (IF (= JANEIN 1) (COPYFILES (SOURCE "S/CD-SERVER.HLP")
  327.                             (DEST "S:")))
  328.  
  329. ;----------------- JETZT DIE DOC-FILES + HISTORY ---------------------------
  330.  
  331. (COMPLETE 60)
  332.  
  333. (SET docdest
  334.  (ASKDIR (PROMPT #DOCDEST)
  335.      (HELP @ASKDIR-HELP)
  336.      (DEFAULT @default-dest)))
  337.  
  338. (IF (= @language "deutsch")
  339.         (SET defnum 5)
  340.         (SET defnum 6)
  341. )
  342.  
  343. (SET sprachen
  344.  (ASKOPTIONS (PROMPT #DOCPART)
  345.          (HELP @ASKOPTIONS-HELP)
  346.          (CHOICES "Deutsch"
  347.                           "English"
  348.                           "History")
  349.          (DEFAULT defnum)))
  350.  
  351. (IF (IN sprachen 0)
  352.     (COPYFILES (HELP @COPY-HELP)
  353.            (SOURCE "BBS/DOORS/CD-SERVER/CD-SERVER_dEUTSCH.GUIDE")
  354.            (DEST docdest)
  355.            (INFOS)))
  356.  
  357. (IF (IN sprachen 1)
  358.     (COPYFILES (HELP @COPY-HELP)
  359.            (SOURCE "BBS/DOORS/CD-SERVER/CD-SERVER_eNGLISH.GUIDE")
  360.            (DEST docdest)
  361.            (INFOS)))
  362.  
  363. (IF (IN sprachen 2)
  364.     (COPYFILES (HELP @COPY-HELP)
  365.            (SOURCE "BBS/DOORS/CD-SERVER/CD-Server.history")
  366.            (DEST docdest)
  367.            (INFOS)))
  368.  
  369. ;------------- NU KOMMEN DIE BBS-SPEZIFISCHEN DINGE -----------------------
  370. ;
  371. ;-------------------- AMIEX-ICON INSTALLIEREN -----------------------------
  372.  
  373. (IF (= BBSSYSTEM 1)
  374.  (
  375.   (COMPLETE 80)
  376.   (SET comdir
  377.    (ASKDIR (PROMPT #AXDEST)
  378.        (HELP @ASKDIR-HELP)
  379.        (DEFAULT commanddir)))
  380.    (COPYFILES (HELP @COPY-HELP)
  381.           (SOURCE "BBS/COMMANDS/BBSCMD/CD.INFO")
  382.           (DEST comdir))
  383.  
  384.   (COMPLETE 90)
  385.  
  386.   (SET TTYPE
  387.    (ASKNUMBER (PROMPT #LEVEL)
  388.               (HELP @ASKNUMBER-HELP)
  389.               (DEFAULT 50)))
  390.  
  391.   (SET AXSLEVEL (cat TTYPE))
  392.   (SET PRGDIR (tackon @default-dest "CD-Server"))
  393.   (TOOLTYPE (DEST (tackon comdir "CD"))
  394.    (SETTOOLTYPE "ACCESS" AXSLEVEL)
  395.    (SETTOOLTYPE "LOCATION" PRGDIR)
  396.    (NOPOSITION))
  397.  
  398.     (COMPLETE 95)
  399.  
  400.   (STARTUP "CD-Server"
  401.            (PROMPT #ASSIGN)
  402.            (HELP @STARTUP)
  403.            (COMMAND "ASSIGN >NIL: SERVER: T: DEFER"))
  404.   (SET mess #GODS)
  405.  ))
  406.  
  407. ;------------- FAME-DOOR DEFINITION INSTALLIEREN --------------------------
  408.  
  409. (IF (= BBSSYSTEM 0)
  410.  (
  411.  (COMPLETE 90)
  412.   (SET comdir
  413.    (ASKDIR (PROMPT #FAMEDEST)
  414.            (HELP @ASKDIR-HELP)
  415.            (default "FAME:SETTINGS/DOORS/BBSCMD")))
  416.    (COPYFILES (HELP @COPY-HELP)
  417.               (SOURCE "FAME/SETTINGS/DOORS/BBSCMD/CD")
  418.               (DEST comdir))
  419.  
  420.    (SET mess ("%s%s" #SYSED #GODS))
  421. ))
  422.  
  423. ;---------------- INSTALLATION BEENDEN UND RAUS HIER -----------------------
  424.  
  425. (COMPLETE 100)
  426.  
  427. (EXIT mess)
  428.